home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / Modula2 ƒ / DataStack Filer / LocLib.Mod / LocLib.Mod.rsrc < prev    next >
Encoding:
Text File  |  1990-06-15  |  464 b   |  17 lines  |  [TEXT/MPS ]
  1.     2 R~TEXTMPS = NIL THEN
  2.                 growStk := NewGrowStack(stack);
  3.                 IF growStk = NIL THEN RETURN NIL; END;
  4.                 END;
  5.             header := FindNextGrowCard(stack,growStk);
  6.             END;
  7.         END;
  8.     HUnlock(gStk);
  9.     RETURN header
  10.     END FindNextGrowCard;
  11.  
  12. PROCEDURE AddGrowCard(stack:DataStack):HeadPtr;
  13. VAR gStk :GrowStack;
  14. BEGIN
  15.     IF stack^^.growStk = NIL THEN
  16.         IF stack^^.growCards = 0 THEN RETURN NIL; END;
  17.         gStk := Ne